home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group00b.txt / 000174_icon-group-sender_Mon Dec 18 09:27:24 2000.msg < prev    next >
Internet Message Format  |  2001-01-03  |  4KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.11.1/8.11.1) id eBIGRKk01190
  4.     for icon-group-addresses; Mon, 18 Dec 2000 09:27:20 -0700 (MST)
  5. Message-Id: <200012181627.eBIGRKk01190@baskerville.CS.Arizona.EDU>
  6. Date: Sat, 16 Dec 2000 08:26:58 -0700
  7. From: Steve Wampler <swampler@noao.edu>
  8. X-Accept-Language: en
  9. To: icon-group@cs.arizona.edu
  10. Subject: Re: Stepping
  11. Errors-To: icon-group-errors@cs.arizona.edu
  12. Status: RO
  13. Content-Length: 3005
  14.  
  15. John Sampson wrote:
  16. > 
  17. > It would be useful to be able to step through an Icon program or set
  18. > break-points in some simple way. I would have thought
  19. > 
  20. > dummy := read()
  21. > ...
  22.  
  23. I though others might like to see how this idea can be easily extended
  24. to support a simple debugging controller.  The following procedure
  25. pauses the program and allows the user to type some simple debugging
  26. commands.  Typing EOF or "q" terminates the program, "c" or "n" continues
  27. program execution, "l" shows local (and global) variables, "g" shows
  28. only global variables, and "a" shows a stack trace of all variables.
  29. Finally "h" prints a simple help message.
  30.  
  31. The programmer can pass in a special prompt or let it default to
  32. a standard prompt.  (Passing in a prompt makes it easier to
  33. identify where in the program you've paused...).
  34.  
  35. Of course, you could extend this to add any number of commands, and
  36. even write a version where the programmer could optionally pass in
  37. addition commands to allow when the procedure is called.
  38.  
  39. I think I've seen better versions of similar ideas posted before - a
  40. *long* time ago.  If you have one, how about reposting it?
  41.  
  42. (As an aside, this could become a class in Unicon and do some *really*
  43. impressive debugging...)
  44.  
  45. ---- snip "debug.icn" ---
  46. #
  47. # Simple debugger controller.  Responds to user-issued debug commands.
  48. #
  49. #   Still requires user to press Enter after each command, though EOF
  50. #     terminates program immediately.
  51. #
  52. procedure debugCtl(prompt)
  53.  
  54.     # Loop until user quits program or asks to continue
  55.     #
  56.     repeat {
  57.         writes((\prompt | "Debug")," (h for help): ")
  58.  
  59.         (map(read()) | "q") ? {
  60.  
  61.             if ="q" then stop("Program terminated by user.")
  62.  
  63.             else if ="h" then {  # help message
  64.                 write("\nCommands are:\n")
  65.                 write("\tquit (or EOF) -- terminate program now")
  66.                 write("\thelp          -- display help")
  67.                 write("\tcontinue      -- continue program execution")
  68.                 write("\tnext          -- same as continue")
  69.                 write("\tlocals        -- display local variables")
  70.                 write("\tglobals       -- display global variables")
  71.                 write("\tall           -- display all variables in stack trace")
  72.                 write("\nOnly first character of command is needed.\n")
  73.                 }
  74.  
  75.             else if =("c"|"n") then return      # continue execution
  76.     
  77.             else if ="l" then {  # display local (and global) variables
  78.                 display(2)       # to bad it also shows local vars for debugCtl!
  79.                 }
  80.  
  81.             else if ="g" then {  # display only global variables
  82.                 display(0)
  83.                 }
  84.  
  85.             else if ="a" then {  # display full stack dump
  86.                 display()
  87.                 }
  88.  
  89.             }   # end of string scanning
  90.  
  91.         }   # end of repeat loop
  92.  
  93. end
  94. --- end snip "debug.icn" ----
  95.  
  96. --
  97. Steve Wampler-  SOLIS Project, National Solar Observatory
  98. swampler@noao.edu
  99.